home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_28_(10-1984).d64 / cust char loader (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  213b  |  7 lines
  1. 10 INPUT"FILENAME:";N$,D
  2. 20 F$=N$:ZK=PEEK(53)+256*PEEK(54)-LEN(F$):POKE 782,ZK/256
  3. 25 POKE781,ZK-PEEK(782)*256:POKE780,LEN(F$):SYS65469
  4. 30 POKE780,1:POKE781,D:POKE782,0:SYS65466
  5. 40 POKE780,0:POKE781,222:POKE782,169:SYS65493
  6. 50 CLOSE1:PRINT:PRINT"[147]"CHR$(142)
  7.